home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Intuition / Requests.asm < prev    next >
Assembly Source File  |  1991-03-13  |  2KB  |  111 lines
  1. *
  2. *    Requests.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Intuition/Intuition.i having to do with
  7. *    Requesters
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _p%IntuitionBase
  14.  
  15.     XDEF    _AutoRequest
  16.     XREF    _LVOAutoRequest
  17. _AutoRequest
  18.     movem.l    d2/d3/a2/a3,-(sp)
  19.     move.w    20(sp),d3
  20.     move.w    22(sp),d2
  21.     move.l    24(sp),d1
  22.     movem.l    28(sp),d0/a3
  23.     move.l    36(sp),a2
  24.     move.l    40(sp),a1
  25.     move.l    44(sp),a0
  26.     move.l    _p%IntuitionBase,a6
  27.     jsr    _LVOAutoRequest(a6)
  28.     movem.l    (sp)+,d2/d3/a2/a3
  29.     tst.l    d0
  30.     sne    d0
  31.     rts
  32.  
  33.  
  34.     XDEF    _BuildSysRequest
  35.     XREF    _LVOBuildSysRequest
  36. _BuildSysRequest
  37.     movem.l    d2/d3/a2/a3,-(sp)
  38.     move.w    20(sp),d3
  39.     move.w    22(sp),d2
  40.     movem.l    24(sp),d0/a3
  41.     move.l    32(sp),a2
  42.     move.l    36(sp),a1
  43.     move.l    40(sp),a0
  44.     move.l    _p%IntuitionBase,a6
  45.     jsr    _LVOBuildSysRequest(a6)
  46.     movem.l    (sp)+,d2/d3/a2/a3
  47.     rts
  48.  
  49.  
  50.     XDEF    _ClearDMRequest
  51.     XREF    _LVOClearDMRequest
  52. _ClearDMRequest
  53.     move.l    4(sp),a0
  54.     move.l    _p%IntuitionBase,a6
  55.     jsr    _LVOClearDMRequest(a6)
  56.     tst.l    d0
  57.     sne    d0
  58.     rts
  59.  
  60.     XDEF    _DisplayAlert
  61.     XREF    _LVODisplayAlert
  62. _DisplayAlert
  63.     move.w    4(sp),d1
  64.     move.l    6(sp),a0
  65.     move.l    10(sp),d0
  66.     move.l    _p%IntuitionBase,a6
  67.     jsr    _LVODisplayAlert(a6)
  68.     tst.l    d0
  69.     sne    d0
  70.     rts
  71.  
  72.     XDEF    _EndRequest
  73.     XREF    _LVOEndRequest
  74. _EndRequest
  75.     move.l    4(sp),a1
  76.     move.l    8(sp),a0
  77.     move.l    _p%IntuitionBase,a6
  78.     jmp    _LVOEndRequest(a6)
  79.  
  80.     XDEF    _FreeSysRequest
  81.     XREF    _LVOFreeSysRequest
  82. _FreeSysRequest
  83.     move.l    4(sp),a0
  84.     move.l    _p%IntuitionBase,a6
  85.     jmp    _LVOFreeSysRequest(a6)
  86.  
  87.     XDEF    _InitRequester
  88.     XREF    _LVOInitRequester
  89. _InitRequester
  90.     move.l    4(sp),a0
  91.     move.l    _p%IntuitionBase,a6
  92.     jmp    _LVOInitRequester(a6)
  93.  
  94.     XDEF    _Request
  95.     XREF    _LVORequest
  96. _Request
  97.     move.l    4(sp),a1
  98.     move.l    8(sp),a0
  99.     move.l    _p%IntuitionBase,a6
  100.     jmp    _LVORequest(a6)
  101.  
  102.     XDEF    _SetDMRequest
  103.     XREF    _LVOSetDMRequest
  104. _SetDMRequest
  105.     move.l    4(sp),a1
  106.     move.l    8(sp),a0
  107.     move.l    _p%IntuitionBase,a6
  108.     jmp    _LVOSetDMRequest(a6)
  109.  
  110.     END
  111.